home *** CD-ROM | disk | FTP | other *** search
/ MacHack 1994 / MacHack 1994.toast / MacHack™ 1987-1994 / MacHack™ '87 / Source ƒ.sea / Source ƒ / Pascal ƒ / engineering pascal / RANDOM.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1987-03-19  |  384 b   |  26 lines  |  [TEXT/MARC]
  1. module random;    {29}
  2.  
  3. function random(dummy: integer): real;
  4.  
  5. { random number 0-1 }
  6.  
  7.         { DEFINE SEED=4.0 AS GLOBAL !!!!!!!! }
  8.  
  9. { adapted from HP-35 applications programs }
  10.  
  11. const
  12.  pi    = 3.14159;
  13.  
  14. var
  15.  x    : real;
  16.  i    : integer;
  17.  
  18. begin    { RANDOM }
  19.  x:=seed+pi;
  20.  x:=exp(5.0*ln(x));
  21.  seed:=x-trunc(x);
  22.  random:=seed
  23. end;        { RANDOM }
  24.  
  25. modend.
  26.